Manchester United on CD/Manchester United on CD.iso/subscribe.dxr/Internal_48_print document.ls

Text File | 2000-08-30 | 1.8 KB | 32 lines

property psp_mysprite

on beginSprite me
  psp_mysprite = sprite(me.spriteNum)
end

on mouseUp me
  global gc_subscribe_cardtype
  if voidp(gc_subscribe_cardtype) then
    alert("Please select a card type")
    exit
  end if
  c_oncd_issuenumber = member("issuenumber").text
  c_oncd_details = member("oncd details_print").text
  c_username = "title: " & member("title entry box").text & RETURN & "name: " & member("name entry box").text & RETURN & "surname: " & member("surname entry box").text
  c_address = "address: " & RETURN & member("address entry box").text & RETURN & member("city entry box").text & RETURN & member("County entry box").text & RETURN & member("post code entry box").text
  c_details = "details: " & RETURN & "phone: " & member("phone entry box").text & RETURN & "Email: " & member("email entry box").text & RETURN & "Team: " & member("team entry box").text & RETURN & "age: " & member("age entry box").text
  c_carddetails = "Payment details: " & RETURN & "Card: " & gc_subscribe_cardtype & RETURN & "number: " & member("card number entry box").text & RETURN & "start date: " & member("start date entry box").text & RETURN & "expiry date: " & member("expiry date entry box").text & RETURN & "issue number: " & member("issue number entry box").text
  spacer = EMPTY & RETURN & RETURN & RETURN
  tmp = spacer & c_oncd_issuenumber & spacer & c_oncd_details & spacer & c_username & spacer & c_address & spacer & c_details & spacer & c_carddetails
  put tmp
  if the controlDown then
    printPreview(member("logo_print"), member("oncd request_print"), tmp)
  else
    print(member("logo_print"), member("oncd request_print"), tmp)
  end if
end

on getPropertyDescriptionList me
  return [#myproperty: [#comment: "comment:", #format: #float, #range: [#min: 0, #max: 180], #default: 10]]
end